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TINY COMP is a Basic compiler program written in Level II 
BASIC for a 16K TRS 80- The compiler program (line numbers 
800-5210) occupys less than 5000 bytes of memory; leaving over 
650O free bytes for the source compiled object {Z80 machine) code. 
(Disk: 2600 for source ;16or 32K for object code). The source 
program, written from line numbers 1-799, must use only the 
statements which TINY COMP can compile. The object code will be 
POKEd into high memory beginning at location 26000 (disk 32669). 
Either the BASIC source program or the machine language object 
code can be RUN under user control. A source code program using 
all the TINY COMP statements (line numbers under 800) Is included 
on the TINY COMP taps. 

In this TINY COMP manual you will find operating Instructions, 
statement definitions, operating system particulars, a line listing 
description, and several additional sample programs. It Is Intended 
that these will aid you in experimenting with the BASIC and 
machine code. 



OPERATING INSTRUCTIONS: 

MEMSIZE? 26000 on powerup (32669 and files on disk) 

CLOAD program 

ENTER program to be compiled, using the TINY COMP state- 
ment set and line numbers 1-799, A sample program us- 
ing all the TINY COMP commands is provided on the 
tape, 
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Type RUN to execute the source program to check for proper 

execution before you compile it. The object code should 



provide the same results, with the exception of INKEY$ 
as explained later, The source program may be edited 
as under Level I! BASIC. 

Type RUN1000 to compile the source program. The decimal 

line number, POKE address, and each machine 
language code will be displayed for each line compiled. 
After the compiler is finished, type ENTER when the 
prompt appears to execute the object code. 

Type BREAK to return to the edit/compile mode. If the object 

code has an endless loop, you'll have to press the 
RESET button. 

An LNF (line not found) error message will appear during 

the compile mode if the program cannot find a branch 
location (for GOTO etc.). An ERROR LINE # message will 
appear if the compiler does not recognize a statement. 

After the source program is compiled and executed, it may be 

run additional times by typing RUN1300. 

The source code and compiler may be CSAVED for use at a 

later time. Make note of the beginning POKE address 
and the last POKE address to save the object file under 
DOS, ESF, etc., if you don't want to re-compile It. 



OPERATING SYSTEM 



Variables (scratch, A-Z) are stored In memory from 32700-32753. 
VT points to the beginning of the variable table, and V1 
is the offset. 

L1(L),L2(L) are the current maximum (200) number of lines allowed 
in the source program. This may be adjusted, as there 
should be sufficient free memory for over 350 single 
statement lines. 

All variables are set equal to zero when RUN is issued; Variables 
have the integer range — 32768 to 32767. 

STATEMENT SET 



A,B,C ... Z in all statements represent the legal TINY COMP 
variable names, nnn in the statements is an allowable line number 
(1-799); and ccc is a positive (or zero) integer constant (less than 
32767). 
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GOTO nnn 

GOSUB nnn . . . RETURN 
END is required 
REM not compiled 

A= RND(B); RND(O) or RND (1) will return a zero or a one, respective- 
ly. 
LET A = ccc The LET is always optional. 

LETA = B 

LETA = B+C 

LET A=B~C Variables cannot be assigned as negative using 
A=ccc; but they can be stored and printed as negatives. For 
example, C = 100B = 70and A = B~C will result in A containing 
a negative 30. 

TAPE VERSION ONLY: 

(LETA = B*C LETA = B/C) 

IF A = B THEN nnn 
IF A<B THEN nnn 

IF A>B THEN nnn This statement will branch on a greater than 
or equal condition, 

A$ = INKEY$ This statement will not return a $ character as in 
Level II. Rather, the ASCII value of the key pressed will be stored in 
the integer variable A. To simulate this statement when you wish to 
test RUN the source program, enter a routine similar to the one 
below and the source program will execute in the same manner as 
the complied machine code. The compiler will ignore the second 
statement in line number 667 of the example: 

666 A =0 

667 A$ = I N KEY$:I FA$"TH EN668ELSEA = ASC(A$) 

668 continue 

CLS 

PRINT@A,B; 

PRINT@A, "STRING"; The maximum length of STRING is six- 
tyfour. Both "quotes" are required. 

TAPE VERSION ONLY: 

POKE A,B 

A = PEEK(B) 

PEEK and POKE can be used to build DATA tables and ARRAYS in 
high memory, above the object code. They may also be used for 
graphics; and PEEK can be used to scan the keyboard for input. 



LIST SUMMARY 




800 


POKEs machine code in 26000+ 


805 


PEEKs BASIC source program 


810 


checks for variable type 


815 


prints 


; ERROR message 


820 


finds 


Integer value of a constant 


830 


checks for constant type 


850 




acknowledgement print 
LOAD variable types (V1,V2) 
checks for legal tine number 


860-870 




890 




900-990 




Compiler codes to be POKEd 
LD HL(nnn) 


900 




905 




LD D nn, LD E nn 


920 




EXC HL, DE 


925 




LD(nnn),HL 


930 




JP nn 


940 




CALL 


990 




computes (nnnn) for 900,925 


1000-1015 




sets parameters 


1020-1045 




saves decimal and POKE line numbers 


1050 




gets statement code 
branch on statement codes 


1090-1200 




1300-1333 




executes machine language program 
POKES for print CALL routines 


1800-1860 




The remaining routines compile the selected statements: 


2000-2300 




LET 


2500-2530 




PRINT® A,CHR$(C) 


2600-2640 




PRINT@A,B 


2700-2770 




PRINT@A 'MESSAGE' 
IF... THEN 


3000-3050 




3500 




GOTO 


3700-3800 




GOSUB . . . RETURN 


4000-4020 




INKEYS 


4500-4530 




RND 


5000 




CLS 


TAPE VERSION ONLY: 


5100 




PEEK 


5200 




POKE 



SAMPLE PROGRAMS: 



This program Illustrates the speed of the compiled machine code 
(crude as It may be). Enter the source below, then type RUN to get 
an idea of the BASIC Interpreter speed. Then execute RUN1000 for 
a blistering surprise! 



18 


fi=33:B=91:E=l 


28 


C=1823 : D=8 


28 


PRINTSDj CHR*<R>; 


48 


D=D+E 


50 


IF D > C THEN 70 


60 


GOTO 30 


78 


fl=fi+E 


80 


GOTO 28 


799 END 



In this example, IN KEYS and the arrow keys are used to move a 
cursor. Don't go off the top or the bottom of the screen! 



r 



20 p*258 : V=64 ; R=3 ; D=191 

36 PRINTCP.. CHR$<D>; 

35 R=8 

40 R*=INKEV* : IFR$=" M THEN42ELSEfi=RSC<fi*> 

42 F=8:G=9:H=10:I=9± 

50 IF fl=F THEN 60 

52 IF fl=G THEN 78 

54 IF R=H THEN 88 

56 IF fl=I THEN 96 

58 GOTO 30 

60 P=P-R 

62 GOTO 38 

78 P*P+R 

72 GOTO 20 

88 P=P+V 

82 GOTO 38 

90 Pap-V 

92 GOTO 30 

799 END 



DISK USERS ONLY: 

For multiplying unsigned variables, try the routine at 700. Divi- 
sion can also be performed by successive subtraction. Remember 
to stay within the integer range. 



5 CLS 

IQ N»150:fl=B:B=18:t>17 
20 X=RND<N> 

22 V*RND<N) 
30 PRINTi?fi,X 

22 PRINTED, "TIMES" 
34 PRINTPC, V 
48 GOSUB70B 

50 fl=128 ; B=140 : C=32S 

52 PRINTOFb "PRODUCT IS" 

54 PRINTC-B.P 

56 PRINT8C, "PRESS fiNV KEV FOR ANOTHER EXAMPLE ? 

60 S=0:B=O 

62 S*= I NKEV* : I FS*= " " THEN64ELSES=RSC < S* > 

64 IF 5=B THEN 60 

66 GOTO 5 

706 2=0:P=0:ft=l 

702 P=P+X 

704 2=2+ft 

706 IF Z=V THEN 710 

705 GOTO 702 
710 RETURN 



SPLAT 



The sample source code (line numbers 10-799) included on disk 
with TINY COMP is a game called SPLAT. An asterisk (*) will appear 
on the screen, and you must use four arrow keys to move the cursor 
block and run over the target, Pressing any other than an arrow key 
will halt the cursor. To illustrate the graphics capabilities, there are 
ten cursor speeds to choose from. The object code for SPLAT 
requires about 1400 compiled bytes; with over 4000 free bytes 
remaining. There is also more than 4500 free bytes left for source 
code. 



SPLAT Line Listing Summary 

10-30 Initialization 
110-250 Main game loop 
110 Print splatter, delay 
120-124 Check for hit 
130 Loop to continue 
200-250 Increment points, reset screen 
600-602 Set new target 
650-654 White screen 
700-737 Adjust cursor 
740-746 Delay loop, check for end of game 
750-752 Print splatter 

NOTE TO DISK USERS: 



The author of this remarkable program is one of the few remaining 
tape users. For that reason, the tape version of TINY COMP actually 
has more features than the disk version! Specifically, multiplication, 
division, PEEK and POKE, in addition, the sample source program 
supplied with the disk version (SPLAT) is different from the program 
which comes in the tape version (3-D TIC-TAC-TOE). 

So that you will have access to the above enhancements to TINY 
COMP, the tape version is supplied along with the disk version on the 
accompanying diskette. To use the tape version you must load the 
tape version (filename: TINYCOMP/TAP), CSAVE it onto tape, and 
CLOAD it under Level II (hold down 'BREAK' while you press 
'RESET'). 



TINY COMP SYSTEM CSAVE (for tape version only) 

TINY COMP has made it possible for anyone who can write in 
BASIC to get efficient machine language code from their programs, 
Although the statement set for TINY COMP is a subset of Level II 
BASIC, complex programs can be written. One example is the three 
dimensional TICTAC TOE game provided with TINY COMP. 

Since the compiler is written in BASIC, execution timeto compile is 
relatively slow. The TIC TAC TOE game takes fourteen minutes to 
compile about 4000 bytes. Thanks to a routine offered by George 
Blank in the April 1980 issue of PROG/80, it is now possible to savethe 
TINY COMP object code buffer on a SYSTEM-compatible tape. Disc 
spinners already have this ability with their version of TINY COMP. 

The SYSTEM CSAVE program is recorded after TINY COMP on 
your cassette. This routine could have been incorporated with the 
TINY COMP compiler program; since it takes over 1000 bytes, it is 
better to have it as a separate program. The program is fairly well 
documented. If you would like more information on the specifics, or a 



look at the machine code source listing, refer to the April issue of 
PROG/80. 

Directions for CS AVEing and CLOADing the object code buffer are 
given below- Because the entire object code buffer is recorded, it will 
always take two minutes to CSAVE and CLOAD the SYSTEM tape. 
This, I believe, is quite acceptable when compared to the compile 
time. As a precaution, your BASIC source program should have an 
endless loop if it is to be CSAVEd on a SYSTEM tape. 

OPERATING INSTRUCTIONS 

CSAVE 

1. Power-up your system, answering MEMORY SIZE?-with 26000. 
CLOAD the TINY COMP compiler with the source program. Compile 
the source program by typing RUN1000, 

2. Type NEW. This will not affect the object code buffer. 

3. CLOAD the TINY COMP SYSTEM CSAVE program, and RUN. 
First you will need to enter the file name (up to six characters) of your 
program. Then ready the cassette in the CSAVE mode, and press 
ENTER on the prompt. When the recorder stops, additional copies 
may be saved by typing RUN, and following the same procedures. 

CLOAD 

To execute the SYSTEM tape, ready the cassette in the CLOAD 
mode and type SYSTEM followed by an ENTER. When the prompt 
appears ( *? ), enter the filename used to CSAVE above. When you 
press ENTER, the object code will be loaded into the machine from 
the tape. On completion, a second { *? ) prompt will appear. Type a 
slash ( / ) followed by 26000, press ENTER.and the program will 
execute. 



SPLAT — AN 
INTRODUCTION TO 

TINY COMP by David Bohlke 



Have you ever wanted to create games or routines with the speed of 
machine language and the ease of programming in BASIC? This is 
now possible with the use of the Level II BASIC compiler program 
TINY COMP, SPLAT is presented in this article as a sample program 
to illustrate some of the commands which can be converted to 
machine language by TINY COMP. 
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SPLAT is very simple in concept. An asterisk will appear on the 
screen, and the player must use the four arrow keys to move the block 
cursor and intercept the target. The sequence is timed and scored, 
and there are ten speed levels from which to select. 

All the program lines, once compiled, will execute exactly as in 
BASIC — except they will run with machine language speed. The only 
exception is the INKEY$ function, as illustrated in line number 22 of 
the program listing. Q$=INKEY$ will return the ASC value of the key 
pressed in the variable Q. It does not return a String variable. The 
second statement in line 22 (IFQ$=""THEN22ELSEQ=ASC(Q$)) is 
added so that the program will RUN under BASIC with the same result 
as the compiled code. This second statement is NOT compiled by 
TINY COMP. 

Since the compiled code executes the same as the BASIC code, it is 
fairly easy, using BASI C, to write and debug the programs before they 
are co mpiied. The compiler, source BASIC code, a nd the object code 
buffer all reside in a 16K Level II machine at the same time. There is no 
need to switch tapes back and forth every time you want to adjustthe 
program listing. The BASIC code for SPLAT is a little over 1 000 bytes; 
and the compiled code is 1142 bytes. In a 16K machine there is 
sufficient memory to compile a program over 6000 bytes in length. 

Although not included in SPLAT, TINY COMP (tape version) can 
also compile the PEEK and POKE commands (as well as * and /). 
These can be used to build and access data tables and arrays. Also, 

the PEEK command can be used for scanning the keyboard for in put. 

To get the SPLAT program up and running, you must first CLOAD 
the TINY COMP compiler after answering MEMORY SIZE? with 
26000. Next, key in the SPLAT listing as presented with this text, A line 
listing description is includedso you can identify the SPLAT routines. 
If you would like a comparison of the BASIC speed, you can type RUN 
to execute SPLAT under Level II BASIC. In addition, when you are 
writing a program from scratch, you will be able to check and adjust 
program flow under BASIC execution. Remember, your BASIC 
source program must use line numbers 1 -799, and it MUST contain an 
END statement. 

When you are ready to compile SPLAT, type RUN1000. The 
compiler will display each line number of the current line being 
compiled, as welt as the current tocation in the object code buffer, and 
the decimal equivalents of the compiled object code. TINY COM P can 
;ompile only the statements illustrated in the statement set table. 
Similar statements with the same key words (PRINT, IF, etc) which 
sannot be compiled will produce an ERROR LINE # message. Lines 
with other key words, like OEFINT A-Z, will be skipped by the 
compiler. Compile time is about 1000 bytes every 3-4 minutes. 

After your program is compiled, j ust press ENTER when the prompt 
appears to execute the machine language code. If your program has a 
ogical end, control will return to BASIC afterexecution is completed. 
To run the program additional times, type RUN1300. When the 
urogram has an endless loop, as in SPLAT, you will have to press the 
3ESET button to return to BASIC. 



The BASIC source program SPLAT, along with TINY COMP, can be 
CS A VEd for future use. The object code cannot be SAVEd in the same 
fashion, so it wil! be necessary to recompile (RUN1000) SPLAT on 
power-up. 

The disk version of TINY COMP functions in a fashion essentially 
similar to the tape version. Some rearrangement of object code 
routines was necessary, since source code and compiler will not fit 
into the 6K left by disk BASIC (in a 16K machine). 

Even though the writing of a BASIC compiler began as an 
experiment for me, I believe it has developed into a useful 
configuration. SPLAT is presented as a demonstration of the high 
speed capabilities of the compiled code in games. A more complex 
source program, 3D TIC TAC TOE. is included with the tape version 
of the TINY COMP compiler. Whether you believe a BASIC compiler 
can be useful for gaming, or just experimentation, I hope TINY COMP 
can be a learning experience for you as it has been for me. 



SPLAT (SOURCE CODE) 

18 X=l:Y=3:H=64:V=48:l>8%:r>1866:K=« 

18 CLS:PRlNTe2,"S PLAT BY DftVID BOHLKE" 

28 PRIhm "EKTER SPEED <e-9> ?" 

22 e$=lNKEY$:lFfa$=" H THEN22€LSEO=hSC<Q$) 

23K=48:IFft<KMN22 

24 K=58:1FQ>KTHEM22 

26 KM7:fM-K:K=13e:L=8:rV=6:0=G-X 

36 L=L+K : H=H+X : I F&=HT HEN38 

32 QOTO30 

98 Q<:GOSUB65e:CLS:6OSUB60e 

188 ft=X:B=W 

118 T=191 : G0S0B758 ; G0SUB748 : IFK=XTHEN798 

115 P==821:PRIriTep, "POINTS"; 

116 P=S85:PfiIHT*P,Hi 

11? K=58i:f*INT«C "SPLAT"; 

118 K=245:PRlNT«<,"SPEE[)*;:K=3ie:PRlNTf?K,0 

128P=fHB:IFP=CTrEN28e 

122 P=P+X:IFP=CTHEN286 

124 P=P+X:IFP=CTH£N286 

138 Q0T0388 

288 h^H+X:QOSUB€58:aS:QOSIJE650:CLS:GOSLe6e6 

388 T=128:GOSuB?50:GOSUB766 

498 G0T0U6 

688 K=i4:D=RrD(K):K=44:E=RHD<K):K=8;F=8 
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662 K=K*X:IFK>DTHEN616 

684 F*FHI:(»T0682 

616 OE+F:K«42:PRIKT«»CHR$(K)i : RETURN 

658 K=6: 1=1623 :K=19i 

652 PR1NT8K* CHR*(M)i 

654 K=K+X:IFK<LTH£N652 

656 RETURN 

768 T=i28:GGSU6758 

782 R=S:5*=INKEVi:lFS»=""THEM703ELSES=flSC(S*) 

782 IFS>XTHEN?65 

784 5*R 

785 J=5;K=9:L=16:M=9i 

766 IFS=JTHEN?28 

767 IFS=KTFEN?25 
788 lFS=tTHEH?26 
718 IF&*THEN735 
715 RETURN 

728 IFFKYTHEN715 
722 ft=*-Y: RETURN 
725 IFR5VTHEN715 
72? fl=6+V: RETURN 
738 IFB=UT*N?15 
732 B=B+W: RETURN 
735 1FB<HTHEN715 
737 B=B-W: RETURN 
748 K=55:PRINTiK, "TIME"; :K=6 

742 K=K+X:1FK<6THEN?42 

743 GsO-X:K=ll?-.PRWf«Gfc : 1F60CFHEN746 

744 RETURN 
746 K=i: RETURN 

758 P=ft+6 : PRINTS cm<T>i :P=P+X:PRINTH>,CHR*<T>; :P=P+X 
752 PRINTS CHR*(T>, ;RETURN 

798 K=629:PRIKT8K, "«CENTER>"i 
792 K$=INKEY* : K=12 :1FK=MTHEN16 
794 60T0792 

799 END 



T J N V C M P <TflPE VERSION) 

886 POK£M>P:PRINTPi :K=N+1 .RETURN 

885 P=PEEK<Q):e=a+l:lFP=22THEN8^ELSERETUR« 

818 IFP<SS0RP>»THEN8i5ELSa?£TURK 

815 PRINT: PRINT-ERROR LINE #°;Lt(L-l):END 

828 IFP<480RP>57THENRETURN 

822 CMS+CHR*<P>:GQSU8885:GO7O820 

838 C$="":GOSUB820;IFC$=""THEHCl=-i:RETURN 

832 Cl=VflL<C*) 

834 D1=C1/256:E1*C1-D1*256 .RETURN 

856 PRINTW, "TINYC01P 3. 13 DflVIO BOHLKE - CQGGOto 1ft" .RETURN 

860 GOSUB885:QOSUe8ie:Vl=f-64:(iOSUB805:RETURH 

870 a0SUB885.QOSUB8ie.V2«P~64; RETURN 

896 GOSUB8e5;QOSUB830;lFCl<lORCl>?99THEN815ELSERETURN 

986 M2 

902 GOSUB880:tiOSlJe990:GOSUB880.P=Pl:GOSUB880:RETURN 

905 F^22:OOSUB880:P=M.OOSUe888:P=38:GOSUe880;P^El:GOSU680e:RETU 

RN 

920 P=235:G0SU8888: RETURN 

925 P=34:G0SUB888:OOSUt^.(iOSUB886:P=Pl^ 

930 P=195 

932 GQSUB888.F**fci UOSUB880:P=D1:GOSUB886: RETURN 

940 P=285: 0010922 

998 P=VT+V1*2-1N1((VI+V1*2)/256)*256:P1=<VT+V1*2>/256:RETURN 

1888 DEFlNTft-ZDM L1(288),L2<280) 

1010 G=17129 : L*l : VI '-32788 . VS=VT ; M=26888 : MS41 : OS 

1015 GOSUB858:OOSUB1880 

1628 Ml=PEEK(0)+FfcEK<Q+l)*256 :Ll<L)=f£EK(Q+2)+PEEK(Q+3)*256 

1638 G0SUB858 1FH>32658PR1NT"M =";«;" : OUT OF MEMORY" :END 

1648 PRINT :PRINT*968,"*"jLKL)iM*":"i :L2(L)=M:L=L+1: 6=6+4 

1845 IFLKL~1)>799TH£N1228 

1658 GOSUB805 

1898 IFP>€4flNDP<51THENQ=Q-l:QOSUe2808 

1188 IFP"148G0SUB2888aSElFP=178G0SUB2588 

1118 IFP=141QOSUe3580ELSEIFP=143GOSUe388e 

1128 IFP=145GOSUB3788ElSEIFP=146<iOSUB3880 

1138 lFP=17700SUB5288ELSEJFP=132G0SUB588e 

1148 IFP=128THENP«281:Q0SUB888 
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1196 IFF-80RP£EK<Q~l>=8THEHi288 

1192 IFPEEK<Q-1>*58THEN185G 

1135 G0SU8885:G0T01198 

1280 Qa«l : PRINT : G0T01826 

•1228 3OSUB850:PRINT8960, "ADJUSTING JUMP'S . . . ■; 

1250 F0RI=N5TQH:IP*PEHCU> 

1252 lFIPal9SORIP=2820RIPa2420RIP=2580RIPsi94THBIi253ELSE1298 

1251 IFPEEK<I+2»12?THEN1298 

1268 DN=PEEK(I+1)+256*PEEK<I+2):DK=0 

1262 F0W=iT0L:IFMM.l<J)THEHDH«t2<J):PR]ffl'Li<JI)i 

1264 H£XT : IFDN>799THEN1298 

1266 IFDH=8PRM" LNF =";DN; :G0T01298 

1278 M^DH/256:LBsC*H»»256:Pa(E<I+i>,LB:P0l<E<I*2)»» 

1298 NEXT: PRINT 

B88 P0KE16526, 144 : P0KE16527, 181 : Q0SUB858: PRI«Te968. "i 

1382 FORI^327WT<B2754:POKEI,0:NEXT 

1385 INPUT"<ENTER> TO =RUN= MACHINE CODE . . . ";fl*:CLS 

1316 X=USR(8) 

1332 G0T01333 

1868 FORI=22672T032698:REfiDX:POKEI,X:NEXT 

1810 DATA 235, 212, 22, 68, 38, 8, 25, 289, 225, 212, 24, 32, 65, 285, 189, 15 

1828 DfiTFt 289,126,182,208,18,19,25,195,178,127 

1828 F0Rl=22755T022?64:REFlDX:P0KEI,X:t€XT 

1822 DfiTfl 225, 212, 22, 68, 28, 8, 25, 289, 115, 28i 

1858 Ft*l=32652T022669:fc£fiDX:POKEI,X:f£XT:RETURN 

1855 DBTFi 213, 22, 60. 20, 0, 25, 289, 235 

1868 DATA126, 254, 34, 288, 18, 19, 35, 195, 148, 127 

2888 GO$U6868:IFPO213THEN4060 

2818 GOSUB885:IFP=222THEN4588aSEIFP=229THEN5180 

2815 GQSUB828:IFC1=-1THEN2106 

2828 GOSU8905:GOSUB920:6OTO2150 

2160 V2=P-64:60SUe885 

2116 lFP>284ftNDP<289THEN2i88 

2128 V4=Y1:Y1=V2:GOSUB980:V1=Y4 

2156 G0SUB925: RETURN 

2388 S*P:V4=Vi:V2=V2:60SUB8?8 

2310 Vi=V3:e0SUB988:«JSUB82e:VlaV2:Q0SUB988 

2228 IFS=288THENDi=26ELSEDl=ll 

2338 lFS=208THENEl=144ELSElFS=267THENEl=242Et.SEIFS=206THENEl=199 

as£Ei=a0 

2240 G05UBSK6:IFS=268THEW1=16:£1*12?:G0SUB948 
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2258 W=8 : VT=16673 : tf£Uf$8e : VT=VS : Vi=V4 : 6OTG2150 

2566 GOSW680S:GGSU&S60:GGS!J&3e5 

2510 iFPO247THEM26e0ELSEGOSUB885:6OSUB8?6 

2529 QOSUB98e:<jOaJB928:Vl=V2:aOSUB980 

2536 1X1=12? : El=243 : G0SU6946 : RETURN 

2686 IFP=34THEN2760 

2618 Q0SUB8ie:V2*-^:Q0SUB988:6OSUB928:Vl«^2:Q(BUB9eB 

2646 M=i2?:Ei=161:G0SUB948: RETURN 

27i» Z=i:Qi=Q 

2718 IFP£EK<Ql>=34THEN2?40£LSElFZ>64TH£Nei5 

2720 Ql=Ctt+i : Z=Z+1 : G0T02718 

2740 G05U6S86 ; D1=<M+9V256 : E1=M*9-D1*256 : GOSU8905 

2750 El=140 : M=12? : QOSU6940 :P=24: QOSU6880 : P=2 : 009*880 

2760 P=PEEK(G):Q=IM: I FP=24(SQSUB880: RETURN 

2770 QOSUB880:GOTO2760 

5006 GaJUB868-.SS*P:IFP»^THEHPa»-.RETURH 

3610 (iOSUBe76:GOSU8805:IFP<>2e2THEN8i5 

2028 UOSUB&90 

3830 V4-V1 : V1=V2 : QOSUB908 : V1=V4 : GOSUB920 : G0SU69eB 

2035 P-128 GOSUB80e:P=237:QO5UB88e:P=82:GOSU88e0 

2040 ]FSO^212THENP=242ELSEIFSG=212THENP=202ELSE1FSQ=214THENP=250 

ELSES15 

3050 G0SU6932. RETURN 

2500 UtoUK»0.GOSUB528: RETURN 

2700 OOSUB890 

2710 1)2-1)1 . E2=£l . Cl=M+8 : G0SU6824 ; GGSUB305 : P=212 : GGSUB806 

2720 M^>2.E1*E2:GGSUB928: RETURN 

3800 P*225:(iGSU6806:P=233:GOSUB806: RETURN 

4800 IFP026THEN815 

4610 (iO5Ub805:6OSUEi805:lFPO201THEN815 

4020 Dl=0:El=42:GCSUe940:P=28:(K»SLe800:P==0'.GaSUB800 

4028 P«lU:GOSUB880:GbsUB$25: RETURN 

4500 GOSUB805:GOSUB870:V3=V1 

4510 V1=V2 : GOSU6986 : VT=166?2 : V1=0 : G0SUB925 : VT=V5: V1=V3 

4520 Dl=20 : Ei=201 : GDSUB940 : W.=1B : El=127 : GOSUB940 

4528 G0SU8325: RETURN 

5000 D1=1:E1=201:GGSUB940: RETURN 

5190 V2=Vl:GOSUB885;GCr5UB870:Vl=V2:QOSUe306:P=12&:GGSIje80& 

5116 V1=V2:P=56:GGSUB902: RETURN 

5206 OKlje860;l»SUB$00:GOSUB870:Vl=V2:P=b8.Gl}SUe982 

5218 P=119 GOSU8800 RETURN 



THE LAZY MAN'S SHORTCUT 
TO MACHINE LANGUAGE! 



A BASIC Compiler in BASIC! Run your source program in BASIC, compile it into 
FAST z-80 Code and execute the compiled version — all without reloading. 26 In- 
teger variables, GOTO. GOSUB, END, REM, RND, LET, + * ,/ , IF/THEN. ELSE.C = ,> 
INKEYS. CLS, PRINT @,CHR$, PEEK, POKE. Compiled programs may be saved via 
TAPEDISK 

Supplied with game program, "3D TIC TAG TOE", which uses all ot the TINY 
COMP Statement set and is ready to compile. 
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